home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / samples / BASIC-PRINCIPLES / pack-tabular.xwx < prev    next >
Encoding:
Text File  |  1994-12-04  |  1020 b   |  32 lines
  1. % This sample shows how to
  2. % - create multiple, similar objects in tabular form
  3. % - separate object bodies from object heads
  4.  
  5. % This is one of the basic features of XbW:
  6. % - to keep source files readable when object count increases
  7.  
  8.  Malloc(90);
  9.  @xbwstart(("test") ("bw") );
  10.  wdw(TEST 1 1 32 10 StandardWDW);
  11.  
  12.  o(TEST01 S . 9 0 20 1 Remark);
  13.  o(TEST02 S S 1 2 30 1 Standard);
  14.  o(TEST03 S S 1 3 30 1 Standard);
  15.  o(TEST04 S S 1 5 30 1 Standard);
  16.  o(TEST05 S S 1 6 30 1 Standard);
  17.  o(TEST06 S S 1 7 30 1 Standard);
  18.  o(TEST07 S S 1 8 30 1 Standard);
  19.  
  20.  bg(TEST01 . ("XbW Notebook")); eg();
  21.  bg(TEST02 . ("Date:                               ")); eg();
  22.  bg(TEST03 . ("Time:                               ")); eg();
  23.  bg(TEST04 . ("Location:                           ")); eg();
  24.  bg(TEST05 . ("Phone No:                           ")); eg();
  25.  bg(TEST06 . ("Remarks:                            ")); eg();
  26.  bg(TEST07 . ("                                    ")); eg();
  27.  
  28. SelectWdw(TEST);
  29. Message(("Project Complete."));
  30. End();
  31.  
  32.